Delphi Programmer's Power Pack/Delphi Volume 1.iso/e_to_l/earth_ss/earth01.dfm/earth01.txt

Text File | 1996-09-15 | 4KB | 170 lines

object f_ScreenSaver: Tf_ScreenSaver
  Left = 305
  Top = 147
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'Earth Screen Saver'
  ClientHeight = 245
  ClientWidth = 326
  Color = clBlack
  Font.Color = clWindowText
  Font.Height = -17
  Font.Name = 'System'
  Font.Style = []
  FormStyle = fsStayOnTop
  PixelsPerInch = 120
  Position = poScreenCenter
  Scaled = False
  OnClick = FormClick
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnMouseMove = FormMouseMove
  OnPaint = FormPaint
  OnResize = FormResize
  TextHeight = 16
  object BackPanel: TPanel
    Left = 0
    Top = 0
    Width = 326
    Height = 245
    Align = alClient
    TabOrder = 0
    object Earth: TImage
      Left = 268
      Top = 147
      Width = 48
      Height = 75
      Picture.Data = {<image000.bmp>}
    end
    object PR1: TLabel
      Left = 106
      Top = 179
      Width = 105
      Height = 16
      Caption = 'Jacques Lemieux'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object PR2: TLabel
      Left = 92
      Top = 201
      Width = 145
      Height = 16
      Caption = 'B�luga Soft Informatique'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Icon1: TImage
      Left = 172
      Top = -2
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {<image001.ico>}
    end
    object Icon2: TImage
      Left = 207
      Top = -2
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {<image002.ico>}
    end
    object Icon3: TImage
      Left = 243
      Top = -2
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {<image003.ico>}
    end
    object Icon4: TImage
      Left = 278
      Top = -2
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {<image004.ico>}
    end
    object SaveButton: TButton
      Left = 195
      Top = 75
      Width = 110
      Height = 33
      Caption = 'Save && Return'
      TabOrder = 0
      OnClick = SaveButtonClick
    end
    object FastCheckbox: TCheckBox
      Left = 23
      Top = 31
      Width = 107
      Height = 17
      Caption = 'Move Faster'
      TabOrder = 1
    end
    object ShowSkyCheckBox: TCheckBox
      Left = 23
      Top = 57
      Width = 129
      Height = 17
      Caption = 'Display Stars'
      TabOrder = 2
      OnClick = ShowSkyCheckBoxClick
    end
    object UseColorsCheckBox: TCheckBox
      Left = 23
      Top = 82
      Width = 143
      Height = 17
      Caption = 'Use Colored Stars'
      TabOrder = 3
    end
    object UseMoreStarsCheckBox: TCheckBox
      Left = 23
      Top = 108
      Width = 130
      Height = 17
      Caption = 'Use More Stars'
      TabOrder = 4
    end
    object TransparentCheckBox: TCheckBox
      Left = 23
      Top = 133
      Width = 145
      Height = 17
      Caption = 'Transparent Earth'
      TabOrder = 5
    end
    object ExitButton: TButton
      Left = 195
      Top = 33
      Width = 110
      Height = 33
      Caption = 'Save && Exit'
      TabOrder = 6
      OnClick = ExitButtonClick
    end
  end
  object TimerEarth: TTimer
    Enabled = False
    Interval = 100
    OnTimer = TimerEarthTimer
    Left = 285
    Top = 173
  end
  object TimerIcon: TTimer
    OnTimer = TimerIconTimer
    Left = 137
    Top = 2
  end
end